"192.168.0.1:sipop"

RESTASALIDASHQ

Descriptions

There is no desription for procedure RESTASALIDASHQ

Input Parameters

Output Parameters

There are no output parameters for procedure RESTASALIDASHQ

Definition

CREATE PROCEDURE RESTASALIDASHQ (
    IDARTICULO CHAR (8) CHARACTER SET NONE,
    IDENTRADA CHAR (8) CHARACTER SET NONE,
    SALIDA FLOAT)
AS
DECLARE VARIABLE VARTOTAL FLOAT DEFAULT  0.0;
DECLARE VARIABLE VAREXIST FLOAT DEFAULT  0.0;
BEGIN

SELECT SUM(CANTIDAD) AS TOTAL FROM DETALLESALIDAHQ
WHERE ARTICULO= :IDARTICULO
INTO: VARTOTAL;

if (VARTOTAL is null) then
begin
  VARTOTAL = 0;
end

UPDATE INVENTARIOHQ SET
   EXISTENCIA = EXISTENCIA - :SALIDA,
   SALIDAS = :VARTOTAL,
   ultima_salida = 'TODAY'
   WHERE ID_ARTICULO = :IDARTICULO ;


/*if (:IDENTRADA is null ) THEN
BEGIN
 UPDATE DETALLEINGRESO
 SET EXISTENCIA = EXISTENCIA - :SALIDA
 where REGISTRO_INGRESO =
 (select id_registro_ingreso
   from registrodeingreso where
   datetime_insert = (
   select min(datetime_insert) from registrodeingreso));

END
*/

/*  SELECT EXISTENCIA FROM DETALLEINGRESO
    WHERE ARTICULO = :IDARTICULO AND
    REGISTRO_INGRESO = :IDENTRADA
    INTO: VAREXIST;
    
    VARTOTAL = :VAREXIST - :SALIDA;*/

/*    UPDATE DETALLEINGRESO SET EXISTENCIA = EXISTENCIA - SALIDA
    WHERE ARTICULO= :IDARTICULO
    AND REGISTRO_INGRESO = :IDENTRADA;
*/
/*    UPDATE inventario set existencia = (existencia- :SALIDA)
    --fecha_ultimo_mov = 'TODAY'
    WHERE ID_ARTICULO= :IDARTICULO;
*/

END

This file was generated with EMS InterBase/FireBird Manager (www.ibmanager.com) at 09/06/2005 05:52 p.m.